home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 001-025 / scopedisk19 / blinker / commentcheck.sub < prev    next >
Text File  |  1995-03-18  |  984b  |  47 lines
  1. '---------------------------------------------------------------------------
  2. '
  3. '                 Comment Check
  4. '
  5. '
  6. '          Copyright 1987 by Brian Zupke
  7. '
  8. '
  9. '      Scans source line in the form of a character string
  10. '  and checks if line is a comment.  A comment line will be
  11. '  blank or the first nonblank characters will be "'" or
  12. '  "rem".
  13. '
  14.   SUB CommentCheck.SUB(SourceLine$,LineIsComment) STATIC
  15.  
  16.   LineIsComment = FALSE
  17.   Uline$ = UCASE$(SourceLine$)
  18. '
  19. '  Find first nonblank character in line
  20. '
  21.   CharPos = 1
  22.   Nonblank = FALSE
  23.   WHILE (NOT Nonblank) AND CharPos <= LEN(Uline$)
  24.     IF MID$(Uline$,CharPos,1) <> " " THEN
  25.       Nonblank = TRUE
  26.     ELSE
  27.       CharPos = CharPos + 1
  28.     END IF
  29.   WEND
  30. '
  31.   IF Nonblank THEN
  32. '
  33. '  Check if first characters "'" or "REM"
  34. '
  35.     IF MID$(Uline$,CharPos,1) = "'" OR MID$(Uline$,CharPos,3) = "REM" THEN
  36.       LineIsComment = TRUE
  37.     END IF
  38. '
  39. '  Blank lines are considered comments
  40. '
  41.   ELSE
  42.     LineIsComment = TRUE
  43.   END IF
  44.   END SUB
  45.  
  46.  
  47.